home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
db4less3.arc
/
CUSTOMER.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1990-06-16
|
6KB
|
82 lines
CUSTOMER
TO w+/b
SET COLOR OF TITLES TO w+/b
SET COLOR OF HIGHLIGHT TO b/w
SET COLOR OF BOX TO b/w
SET COLOR OF INFORMATION TO b/w
SET COLOR OF FIELDS TO b/w
ENDIF
SET VIEW TO TIMEEDIT.VUE
*-- Define the main popup menu for Quickapp
SET BORDER TO DOUBLE
DEFINE POPUP quick FROM 7,27
DEFINE BAR 1 OF quick PROMPT " Add Information" MESSAGE "Add records to database TIMEEDIT.VUE"
DEFINE BAR 2 OF quick PROMPT " Change Information" MESSAGE "Edi
CUSTCODE
CUSTNAME
"Browse database TIMEEDIT.VUE"
DEFINE BAR 4 OF quick PROMPT " Discard Marked Records " MESSAGE "Purge deleted records in database TIMEEDIT.VUE"
DEFINE BAR 5 OF quick PROMPT " Print Report" MESSAGE "Run report form TIME"
DEFINE BAR 6 OF quick PROMPT " Exit From Time" MESSAGE "Exit program to dBASE"
ON SELECTION POPUP quick DO Action WITH BAR()
*-- Define the popup menu for print redirection
DEFINE POPUP prntchk FROM 10,55
DEFINE BAR 1 OF prntchk PROMPT " Send to..." SKIP
DEFINE BAR 2 OF prntchk PROMPT REPLICATE(CHR(196),14) SKIP
DEFINE BAR 3 OF prntchk PROMPT " Screen " MESSAGE "Screen only"
DEFINE BAR 4 OF prntchk PROMPT " Printer" MESSAGE "Printer LPT1:"
DEFINE BAR 5 OF prntchk PROMPT " Label Sample " MESSAGE "Printer LPT1: with Sample label" SKIP
DEFINE BAR 6 OF prntchk PROMPT " Return" MESSAGE "Return to Main Menu"
ON SELECTION POPUP prntchk DO get_sele
*-- Window to cover work surface during edit, append, etc.
DEFINE WINDOW work FROM 0,0 TO 21,79 NONE
*-- Window for area below menu heading & for running reports/labels in
DEFINE WINDOW desktop FROM 4,0 TO 21,79 NONE
DEFINE WINDOW printemp FROM 10,25 TO 15,56
*-- Display heading centered on the screen.
DO menubox WITH lc_heading
*-- Show the menu so we don't get a flash if the user hits arrow keys or ESC
SHOW POPUP quick
SAVE SCREEN TO quick
*-- Display Quickapp menu centered on the screen.
DO WHILE gn_barv <> 6 && Prevent user
CUSTCODE
BOISE
WHISPER
CUSTCODE
CUSTNAME
Boise Cascade
Whisperwood, Ltd.
CUSTNAME
BOISE
BRIGHTON
GSA
LIMBER 04
WESTWINDS
WHISPER
Sign-on defaults
Display options
Environment settings
Application drive/path
1Set default values for application sign-on screen
Set default display attributes
Set default environment5Set default drive and search path for generated menus
SDEAz
! Save all changes and exit#-
! Abandon all changes and exit
6Save any changes made and leave applications generator7Leave application
Boise Cascade 8
Brighton Associates
General Services Admin
Limber Lumber Company nme
Westwinds Construction Con d
Whisperwood, Ltd. val
for application sign-on screen
Set default display attributes
Set default environment5Set default drive and search path for generated menus
SDEAz
! Save all changes and exit#-
! Abandon all changes and exit
6Save any changes made and leave applications generator7Leave applications gene
*tor without saving any changes